home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00067_--Go Main Screen Sprite Script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  851 b   |  40 lines
  1. on mouseDown
  2.   global gsCleanUpHandler, name, gbVideoUp, purple, orange, yellow, rainy
  3.   set name to 0
  4.   if the machineType = 256 then
  5.     if rainy = 1 then
  6.       set the movieRate of sprite 3 to 0
  7.       set rainy to 0
  8.     else
  9.       repeat with x = 3 to 5
  10.         if the visible of sprite x = 1 then
  11.           set the movieRate of sprite x to 0
  12.           next repeat
  13.         end if
  14.         nothing()
  15.       end repeat
  16.     end if
  17.     set gbVideoUp to 0
  18.   else
  19.     set gbVideoUp to 0
  20.   end if
  21.   buttonLogic()
  22.   if the result = 1 then
  23.     do(gsCleanUpHandler)
  24.     set the visible of sprite 2 to 1
  25.     unLoad(519)
  26.     unLoad(168, 175)
  27.     unLoad(446, 460)
  28.     unLoad(426, 459)
  29.     unLoad(520)
  30.     unLoad(155)
  31.     set orange to 0
  32.     set purple to 0
  33.     set yellow to 0
  34.     puppetSound(0)
  35.     puppetSprite(2, 0)
  36.     go("Main Screen")
  37.     exit
  38.   end if
  39. end
  40.